#!/usr/bin/perl

@files = `find . -name "*.java-bu"`;
foreach $file(@files)
{
    chomp $file;
    $newfile = $file;
    $newfile=~s/\-bu$//;
    `mv $file $newfile`;
}
